home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / mac / files / ID99MENU.DIR / 00202_review spin script.ls < prev    next >
Encoding:
Text File  |  1999-04-29  |  357 b   |  20 lines
  1. property s, mypercent, mywidth
  2. global tickrate, stagedone
  3.  
  4. on beginSprite me
  5.   s = me.spriteNum
  6.   mypercent = 0
  7.   mywidth = the width of sprite s
  8. end
  9.  
  10. on prepareFrame me
  11.   set the width of sprite s to float(mywidth) / 100 * mypercent
  12.   mypercent = min(100, mypercent + tickrate)
  13. end
  14.  
  15. on donestage me
  16.   if mypercent < 100 then
  17.     stagedone = 0
  18.   end if
  19. end
  20.